home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / asm / Tandem2.68.lha / Tandem / Teaching / 55.asm < prev    next >
Assembly Source File  |  2000-04-02  |  755b  |  36 lines
  1. * 55.asm  TLdata     version 0.01     8.6.99
  2.  
  3.  
  4.  include 'Front.i'
  5.  
  6.  
  7. strings: dc.b 0
  8.  dc.b '     I''m a TLdata demonstration...',0 ;1
  9.  dc.b 'I will wait on the screen for a few seconds.',0 ;2
  10.  dc.b 'Then, I''ll disappear. So, parden me a few',0 ;3
  11.  dc.b 'seconds while I contemplate the relationship',0 ;4
  12.  dc.b 'between mind and matter.',0 ;5
  13.  dc.b 'Error: out of memory',0 ;6
  14.  
  15.  ds.w 0
  16.  
  17. * demonstrate TLdata
  18. Program:
  19.  TLwindow #-1              ;set things up
  20.  beq Pr_bad
  21.  
  22.  TLdata #2,#4              ;draw data window
  23.  
  24.  move.l xxp_dosb(a4),a6    ;delay 7 seconds
  25.  move.l #7*50,d1
  26.  jsr _LVODelay(a6)
  27.  
  28.  TLreqoff                  ;remove data window
  29.  bra.s Pr_quit             ;quit ok
  30.  
  31. Pr_bad:                    ;here if out of mem
  32.  TLbad #6
  33.  
  34. Pr_quit:
  35.  rts
  36.